home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / readini.ba_ / readini.ba
Text File  |  1995-07-04  |  2KB  |  50 lines
  1. Attribute VB_Name = "INIFileReader"
  2. Option Explicit
  3.  
  4. Const INI_SECTION = "Data Files"
  5. Const INI_FILENAME = "VBDBHT.INI"
  6. Const MAX_PATH = 128
  7.  
  8. #If Win32 Then
  9.     Declare Function GetPrivateProfileString _
  10.         Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpSectionName As String, _
  11.         ByVal lpKeyName As Any, ByVal lpDefault As String, _
  12.         ByVal lpReturnedString As String, ByVal Size As Integer, _
  13.         ByVal lpFileName As String) As Integer
  14. #Else
  15.     Declare Function GetPrivateProfileString _
  16.         Lib "Kernel" (ByVal lpSectionName As String, _
  17.         ByVal lpKeyName As Any, ByVal lpDefault As String, _
  18.         ByVal lpReturnedString As String, ByVal Size As Integer, _
  19.         ByVal lpFileName As String) As Integer
  20. #End If
  21.     
  22.  
  23. Public Function BiblioPath() As String
  24.     ' Returns the fully qualiied path name to BIBLIO.MDB,
  25.     ' as recorded in VBDBHT.INI.
  26.     ' Returns an empty string if information is not found.
  27.     
  28.     Dim lpReturnedString As String * MAX_PATH
  29.     Dim bytesBack As Integer
  30.     
  31.     bytesBack = GetPrivateProfileString(INI_SECTION, _
  32.         "BIBLIO", "", lpReturnedString, MAX_PATH, INI_FILENAME)
  33.     BiblioPath = IIf(bytesBack > 0, Left$(lpReturnedString, bytesBack) & "\BIBLIO.MDB", "")
  34.     
  35. End Function
  36.  
  37.  
  38. Public Function DataPath() As String
  39.     ' Returns the top-level VBDBHT directory
  40.     
  41.     Dim lpReturnedString As String * MAX_PATH
  42.     Dim bytesBack As Integer
  43.     
  44.     bytesBack = GetPrivateProfileString(INI_SECTION, _
  45.         "Data", "", lpReturnedString, MAX_PATH, INI_FILENAME)
  46.     DataPath = IIf(bytesBack > 0, Left$(lpReturnedString, bytesBack), "")
  47.     
  48. End Function
  49.  
  50.